perm filename S3[1,LCS]1 blob
sn#330344 filedate 1978-01-20 generic text, type T, neo UTF8
1) SC3.F4[1,LCS] and 2) SC3.F4[SCR,LCS] 1-20-78 14:30 pages 1,1
**** File 1) SC3.F4[1,LCS], Page 1 line 5
1) C00010 00003 C ***** SORTER *************************
1) C00022 00004 752 FORMAT(1X15A5)
1) C00050 ENDMK
1) C⊗;
**** File 2) SC3.F4[SCR,LCS], Page 1 line 5
2) C00011 00003 C ***** SORTER *************************
2) C00023 00004 752 FORMAT(1X15A5)
2) C00052 ENDMK
2) C⊗;
***************
**** File 1) SC3.F4[1,LCS], Page 2 line 14
1) COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27)
1) 1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
**** File 2) SC3.F4[SCR,LCS], Page 2 line 14
2) COMMON P(30),J,L,CNT(27),BT,PL(48),MK,DF,DUR(27) /SAM/ISAM
2) 1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG,IXX,ISEMI,IQT
***************
**** File 1) SC3.F4[1,LCS], Page 2 line 29
1) 1 ,(IT,INP(28)),(V,IV),(PLAY,ISCA(7)),(IFM2,IFM(2))
1) 1 ,(IFM4,IFM(4)),(COFF1,INP(58)),(COFF2,INP(85))
**** File 2) SC3.F4[SCR,LCS], Page 2 line 29
2) 1 ,(IT,INP(28)),(V,IV),(IPLAY,ISCA(7)),(IFM2,IFM(2))
2) 1 ,(IFM4,IFM(4)),(COFF1,INP(58)),(COFF2,INP(85))
***************
**** File 1) SC3.F4[1,LCS], Page 2 line 42
1) 1 'F10','F11','F12','F13','F14','F15','END'/,I1X/'1X'/
1) 1 ,IFM(1)/'('/,IFM2/'1XA5,'/,IFCOM/5H', ',/,IA1/'A1,'/
1) CC 1 ,RCD/"575326135500/,
**** File 2) SC3.F4[SCR,LCS], Page 2 line 42
2) 1 'F10','F11','F12','F13','F14','F15','END'/,I1X/'1X'/,
2) 1IFM(1)/'('/,IFM2/'1XA5,'/,IFCOM/5H', ',/,IA1/'A1,'/,RNDOFF/100.0/
2) CC 1 ,RCD/"575326135500/,
***************
**** File 1) SC3.F4[1,LCS], Page 2 line 48
1) ITOT=1
**** File 2) SC3.F4[SCR,LCS], Page 2 line 48
2) JPLAY=IPLAY
2) IF(ISAM)JPLAY=IBLA
2) C SAMSON BOX OUTPUT WILL NOT HAVE PLAY STATEMENT.
1) SC3.F4[1,LCS] and 2) SC3.F4[SCR,LCS] 1-20-78 14:30 pages 2,2
2) ITOT=1
***************
**** File 1) SC3.F4[1,LCS], Page 3 line 67
1) 4727 IF(DUR(KL))DUR(KL)=1000.
1) C ASSUMES THAT DURATIONS ARE SET IN 'NOTES'.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 67
2) 4727 IF(DUR(KL))DUR(KL)=10000.
2) C ASSUMES THAT DURATIONS ARE SET IN 'NOTES'.
***************
**** File 1) SC3.F4[1,LCS], Page 3 line 187
1) 1'STORAGE=',I4,'/',I4,/' TEMPO FACTOR=',F6.2/)
1) 1023 FORMAT(/' < ',A5,'.SCR -- RANDOM NUMBER=',I6/1XA5)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 187
2) 1'STORAGE=',I5,'/',I5,/' TEMPO FACTOR=',F6.2/)
2) 1023 FORMAT(/' < ',A5,'.SCR -- RANDOM NUMBER=',I6/1XA5)
***************
**** File 1) SC3.F4[1,LCS], Page 3 line 222
1) 8396 FORMAT('+',F6.2,'"')
1) 83 X=X-10000.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 222
2) 8396 FORMAT('+',F7.2,'"')
2) 83 X=X-10000.
***************
**** File 1) SC3.F4[1,LCS], Page 3 line 249
1) TF=100./TF
1) CROFF 100 HERE FOR NEW DAC!?#@&βX 1/76 TF=1000./TF
**** File 2) SC3.F4[SCR,LCS], Page 3 line 249
2) TF=RNDOFF/TF
2) C RNDOFF IS ROUND OFF NUMBER. (100 OR 1000)
2) CROFF 100 HERE FOR NEW DAC!?#@&βX 1/76 TF=1000./TF
***************
**** File 1) SC3.F4[1,LCS], Page 3 line 275
1) IF(DUR(K).LT.10000.)DUR(K)=DUR(K)-.0001
1) C******* FEB. 16,71 FOR ROUND-OFF NONSENSE
1) 5015 CNT(K)=0
1) IF(MZ)WRITE(JOUT,1023),ISLAC,IXIN,PLAY
1) IF(MX)WRITE(1,1023)ISLAC,IXIN,PLAY
1) CC IF(MX)WRITE(23,1023)ISLAC,IXIN,PLAY
1) SC3.F4[1,LCS] and 2) SC3.F4[SCR,LCS] 1-20-78 14:30 pages 3,3
1) BW=0
**** File 2) SC3.F4[SCR,LCS], Page 3 line 276
2) IF(DUR(K).LE.10000.)DUR(K)=DUR(K)-.0001
2) C******* FEB. 16,71 FOR ROUND-OFF NONSENSE
2) 5015 CNT(K)=0
2) IF(MZ)WRITE(JOUT,1023),ISLAC,IXIN,JPLAY
2) IF(MX)WRITE(1,1023)ISLAC,IXIN,JPLAY
2) BW=0
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 6
1) IF(NWZ)GO TO 1740
**** File 2) SC3.F4[SCR,LCS], Page 4 line 6
2) C ***SAM*** DISABLE NAME CHANGE FEATURE AT LABEL 999 FOR SAM OUTPUT.
2) IF(NWZ)GO TO 1740
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 344
1) 4203 X=COFF1(J)
**** File 2) SC3.F4[SCR,LCS], Page 4 line 346
2) 5203 JD=Y*100-IX*100+.5
2) IF(JD.GT.0)GO TO 3203
2) M=0
2) P1(J)=PP1+PP2
2) GO TO 7021
2) 4203 X=COFF1(J)
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 399
1) PP2=K/100.
1) CCC7155 PP2=K/100.
**** File 2) SC3.F4[SCR,LCS], Page 4 line 406
2) PP2=K/RNDOFF
2) CCC7155 PP2=K/100.
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 411
1) 615 Y=RAND(-X,X)
1) IF(Y.GE.PP2)Y=PP2/2.
1) PP2=PP2-RDEV(J)+Y
1) RDEV(J)=Y
1) C TOTAL RAND DEV. WON'T EXCEED P31
1) C SET P31 TO .0001 TO BRING VOICE BACK TO EXACT TIME(0 WON'T DO IT)
1) K=PP2*100.+.5
1) SC3.F4[1,LCS] and 2) SC3.F4[SCR,LCS] 1-20-78 14:30 pages 4,4
1) CROFF K=PP2*1000.+.5
1) C****** CHECK THIS OUT 1/10/72 :::::::
1) 61551 PP2=K/100.
1) C NEVER MORE THAN .1( DEVIATION WITH RAN TF. (RTF=.05)
**** File 2) SC3.F4[SCR,LCS], Page 4 line 418
2) 615 Y=IFIX(RAND(-X,X)*RNDOFF+.5)/RNDOFF
2) C ROUNDS TO 1/100 OR 1/1000 -- RNDOFF
2) CX IF(Y.GE.PP2)Y=PP2/2.
2) CX PP2=PP2-RDEV(J)+Y
2) CX RDEV(J)=Y
2) W=RDEV(J)
2) IF(ABS(W+Y).GT.X)Y=-Y
2) C TOTAL RAND DEV.(RDEV) WON'T EXCEED P31
2) RDEV(J)=W+Y
2) PP2=PP2+Y
2) C SET P31 TO .0001 TO BRING VOICE BACK TO EXACT TIME(0 WON'T DO IT)
2)
2) CXX W=PP2*100.
2) CXX K=W+.5
2) CXX ROFF(J)=ROFF(J)+K-W
2) CROFF K=PP2*1000.+.5
2) C****** CHECK THIS OUT 1/10/72 :::::::
2) CXX61551 PP2=K/100.
2) C NEVER MORE THAN .1( DEVIATION WITH RAN TF. (RTF=.05)
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 425
1) 5203 JD=Y*100-IX*100+.5
1) IF(JD.GT.0)GO TO 3203
1) M=0
1) P1(J)=PP1+PP2
1) GO TO 7021
1) 3203 P(JD)=OTH(JC,2)
**** File 2) SC3.F4[SCR,LCS], Page 4 line 440
2) 3203 P(JD)=OTH(JC,2)
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 562
1) IF(LK.EQ.IBLA)GO TO 1921
**** File 2) SC3.F4[SCR,LCS], Page 4 line 572
2) C ***SAMSWITCH***
2) 999 IF(ISAM)GO TO 1921
2) IF(LK.EQ.IBLA)GO TO 1921
***************
1) SC3.F4[1,LCS] and 2) SC3.F4[SCR,LCS] 1-20-78 14:30 pages 4,4
**** File 1) SC3.F4[1,LCS], Page 4 line 609
1) 8902 FORMAT('+;<'I2,1XA5,I4,' >',F7.3)
1) 3616 FORMAT(';PRINT P1;< ',A5,I4)
**** File 2) SC3.F4[SCR,LCS], Page 4 line 621
2) 8902 FORMAT('+;<'I2,1XA5,I4,' >',F7.2)
2) 3616 FORMAT(';PRINT P1;< ',A5,I4)
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 641
1) C INSERTS CANT FOLLOW LAST REGULAR NOTE.
1) C (ADD REST IF INSERT AT END IS NEEDED.)
**** File 2) SC3.F4[SCR,LCS], Page 4 line 653
2) C INSERTS CAN'T FOLLOW LAST REGULAR NOTE.
2) C (ADD REST IF INSERT AT END IS NEEDED.)
***************
**** File 1) SC3.F4[1,LCS], Page 4 line 672
1) 1175 FORMAT('+',A5,'=',F7.3,2X,$)
1) 1109 FORMAT(' FINISH; < ',A5,'.SCR')
1) 1110 FORMAT(' <',A5,2F8.2,2X,'******* REST <'I2,1XA5,I4,F12.3)
1) 1603 FORMAT(' AMPL. FACTOR=',F4.2,', P4 MAX.AMP.=',I6,', AT TIME'
**** File 2) SC3.F4[SCR,LCS], Page 4 line 684
2) 1175 FORMAT('+',A5,'=',F7.2,2X,$)
2) 1109 FORMAT(' FINISH; < ',A5,'.SCR')
2) 1110 FORMAT(' <',A5,2F8.2,2X,'******* REST <'I2,1XA5,I4,F11.2)
2) 1603 FORMAT(' AMPL. FACTOR=',F4.2,', P4 MAX.AMP.=',I6,', AT TIME'
***************